inherited frmPeriodEndAdjExchRate: TfrmPeriodEndAdjExchRate
  Left = 488
  Top = 242
  Caption = #26399#26411#35843#27719
  ClientHeight = 373
  ClientWidth = 403
  ExplicitWidth = 409
  ExplicitHeight = 398
  PixelsPerInch = 96
  TextHeight = 12
  inherited Panel1: TPanel
    Width = 403
    Height = 57
    ExplicitWidth = 403
    ExplicitHeight = 57
    inherited labFuncName: TLabel
      Width = 52
      Caption = #26399#26411#35843#27719
      ExplicitWidth = 52
    end
    inherited img3: TImage
      Left = 352
      ExplicitLeft = 352
    end
    inherited Bevel1: TBevel
      Top = 54
      Width = 403
      ExplicitTop = 54
      ExplicitWidth = 403
    end
    object rbPeriodEnd: TcxRadioButton
      Left = 12
      Top = 28
      Width = 113
      Height = 17
      Caption = #26399#26411#35843#27719
      Checked = True
      Color = clTeal
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 0
      TabStop = True
      Visible = False
    end
    object rbSelAdj: TcxRadioButton
      Left = 124
      Top = 28
      Width = 113
      Height = 17
      Caption = #36873#25321#35843#27719
      Color = clTeal
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 1
      Visible = False
    end
    object edtDate: TcxDateEdit
      Left = 201
      Top = 27
      TabOrder = 2
      Visible = False
      Width = 121
    end
  end
  inherited pnlBottom: TPanel
    Top = 318
    Width = 403
    ExplicitTop = 318
    ExplicitWidth = 403
    inherited bvl1: TBevel
      Width = 403
      ExplicitWidth = 403
    end
    inherited btnOK: TcxButton
      Left = 226
      Caption = #25191#34892'(&O)'
      ModalResult = 0
      OnClick = btnOKClick
      ExplicitLeft = 226
    end
    inherited btnCancel: TcxButton
      Left = 309
      OnClick = btnCancelClick
      ExplicitLeft = 309
    end
  end
  object grdMoney: TcxGrid
    Left = 8
    Top = 64
    Width = 388
    Height = 163
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabOrder = 2
    object viewMoney: TcxGridDBTableView
      Navigator.Buttons.CustomButtons = <>
      DataController.DataSource = dsMoney
      DataController.Summary.DefaultGroupSummaryItems = <>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      OptionsData.Deleting = False
      OptionsData.DeletingConfirmation = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.ColumnAutoWidth = True
      OptionsView.GroupByBox = False
      Styles.Background = MainDM.bslBackGroup
      Styles.ContentEven = MainDM.bsEven
      Styles.ContentOdd = MainDM.bsOdd
      Styles.Selection = MainDM.bsSelect
      Styles.Footer = MainDM.bsTitle
      Styles.Header = MainDM.bsTitle
      object viewMoneymoney: TcxGridDBColumn
        Caption = #24065#31181#21517#31216
        DataBinding.FieldName = 'name'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 80
      end
      object viewMoneycode: TcxGridDBColumn
        Caption = #32534#30721
        DataBinding.FieldName = 'code'
        HeaderAlignmentHorz = taCenter
        Options.Editing = False
        Width = 80
      end
      object viewMoneyrate: TcxGridDBColumn
        Caption = #27719#29575
        DataBinding.FieldName = 'rate'
        HeaderAlignmentHorz = taCenter
        Width = 80
      end
    end
    object lvlMoney: TcxGridLevel
      GridView = viewMoney
    end
  end
  object chkVouBind: TcxCheckBox
    Left = 24
    Top = 291
    AutoSize = False
    Caption = #23558#26399#26411#35843#27719#20135#29983#30340#20973#35777#31435#21363#30331#24080
    TabOrder = 3
    Transparent = True
    Height = 21
    Width = 245
  end
  object cxLabel1: TcxLabel
    Left = 24
    Top = 237
    Caption = #26399#26411#35843#27719#20973#35777#23383#65306
    Transparent = True
  end
  object edtVouWord: TcxDBLookupComboBox
    Tag = 64
    Left = 123
    Top = 235
    DataBinding.DataField = 'vouwordid'
    DataBinding.DataSource = dsSuppose
    Properties.ListColumns = <>
    TabOrder = 5
    Width = 145
  end
  object cxLabel2: TcxLabel
    Left = 24
    Top = 266
    Caption = #27719#20817#25439#30410#31185#30446#65306
    Transparent = True
  end
  object edtSubject: TcxDBLookupComboBox
    Tag = 63
    Left = 123
    Top = 264
    DataBinding.DataField = 'subjectid'
    DataBinding.DataSource = dsSuppose
    Properties.ListColumns = <>
    TabOrder = 7
    Width = 145
  end
  object dsSuppose: TDataSource
    DataSet = cdsSuppose
    Left = 299
    Top = 234
  end
  object cdsSuppose: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'subjectid'
        DataType = ftInteger
      end
      item
        Name = 'vouwordid'
        DataType = ftInteger
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 339
    Top = 234
    object cdsSupposesubjectid: TIntegerField
      FieldName = 'subjectid'
      OnChange = cdsSupposesubjectidChange
    end
    object cdsSupposevouwordid: TIntegerField
      FieldName = 'vouwordid'
    end
  end
  object qryMoney: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select * from td_money where moneyid<>0 and pause<>1')
    CachedUpdates = True
    Options.SetFieldsReadOnly = False
    Left = 96
    Top = 52
  end
  object dsMoney: TDataSource
    DataSet = qryMoney
    Left = 164
    Top = 52
  end
  object qryTmp: TUniQuery
    Connection = MainDM.UniConn
    Left = 36
    Top = 156
  end
  object qrySubject: TUniQuery
    Connection = MainDM.UniConn
    SQL.Strings = (
      'select SubjectID, IsDebit from tfd_Subject '
      '  where subnode=1 And ISADJRATE = 1 and MoneyID=:moneyid '
      '  order by SubjectID')
    Left = 36
    Top = 96
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'moneyid'
        Value = nil
      end>
  end
  object sp_adjexchrate: TUniStoredProc
    StoredProcName = 'p_getadjustexchrateamt'
    Connection = MainDM.UniConn
    Left = 216
    Top = 104
    ParamData = <
      item
        DataType = ftInteger
        Name = 'RETURN_VALUE'
        ParamType = ptResult
        Value = 0
      end
      item
        DataType = ftInteger
        Name = 'subjectid'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'isdebit'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'moneyid'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftFloat
        Name = 'newrate'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'curryear'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'currmonth'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftInteger
        Name = 'filid'
        ParamType = ptInput
        Value = nil
      end
      item
        DataType = ftFloat
        Name = 'adjustamt'
        ParamType = ptInputOutput
        Value = nil
      end>
    CommandStoredProcName = 'p_getadjustexchrateamt'
  end
end
